VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "LocalAssertions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private mEquals As New Equality

Public Sub fail(Optional message As String = "")
gResult.primitiveAssert False, Empty, Empty, message, "Fail"
End Sub

Public Sub isTrue(value As Boolean, Optional message As String = "")
If value Then
    gResult.primitiveAssert True, value, True, message, "Actual was true"
Else
    gResult.primitiveAssert False, value, True, message, "Actual should have been true"
End If
End Sub
Public Sub isFalse(value As Boolean, Optional message As String = "")
If Not value Then
    gResult.primitiveAssert True, value, False, message, "Actual was false"
Else
    gResult.primitiveAssert False, value, False, message, "Actual should have been false"
End If
End Sub

Public Sub equals(actual As Variant, expected As Variant, Optional message As String = "")
mEquals.equals actual, expected
gResult.primitiveAssert mEquals.result, actual, expected, message, mEquals.message
End Sub
